package ejemplo1
is
   var1,var2:integer;
   var3:integer := 2+2;
   var4:integer;
   uno:Integer;
   Var5:integer;
   --var5:integer := TRUE and FALSE;
   procedure Ejemplo1(var5:in out Boolean);
   procedure nuevop(uno:in out integer);
end ejemplo1;
